home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.10 / demo / vdx.i / vd6.i < prev    next >
Text File  |  1995-04-19  |  2KB  |  79 lines
  1.  
  2. { VD6.i }
  3.  
  4. Function VD6 : String;
  5.  
  6. Const
  7.  
  8.   ObjectPoints : ARRAY[0..20] OF Short =  { Punkt-Tabelle }
  9.   (
  10.    5,
  11.     0, 0,-400, 0,
  12.  
  13.    300,-300, 200, 0,
  14.   -100,-100, 200, 0,
  15.   -300, 300, 200, 0,
  16.    100, 100, 200, 0
  17.    );
  18.  
  19.   ObjectAreas : ARRAY[0..55] OF Short = { Flächen-Tabelle }
  20.   (
  21.    5,
  22.     4,1, 1*4,2*4,3*4,4*4,1*4,      0,0,0,0,
  23.     3,2, 0*4,2*4,1*4,0*4,    0,0,0,0,0,
  24.     3,3, 0*4,3*4,2*4,0*4,    0,0,0,0,0,
  25.     3,4, 0*4,4*4,3*4,0*4,    0,0,0,0,0,
  26.     3,5, 0*4,1*4,4*4,0*4,    0,0,0,0,0
  27.   );
  28.  
  29.  
  30.   ObjectMove : ARRAY[0..28] OF Short =
  31.   (
  32.    200,  0, 0, 72, 0,1,0,
  33.    180,  0, 0,  0, 1,0,0,    { Positionierung und Animationspfad }
  34.    400,  0, 0,  0, 1,4,1,
  35.    200,  0, 0,-72, 1,1,1,
  36.    END_1
  37.   );
  38.  
  39.  
  40.   MyColTab : ARRAY[0..32] OF Short = { Farbtabelle }
  41.   (
  42.    0,  0, 0, 0,   { Register, Rot,Grün,Blau }
  43.    1,  8, 8,15,
  44.    2, 13,13, 0,
  45.    3, 12,12, 0,
  46.    4,  3,13, 3,
  47.    5,  2,12, 2,
  48.    6,  8, 8, 8,
  49.    7, 14,14,14,
  50.    -1
  51.   );
  52.  
  53.  
  54. BEGIN
  55.  
  56.    MyObject.Point_Data := Adr(ObjectPoints);
  57.    MyObject.Area_Data  := Adr(ObjectAreas);
  58.    MyObject.Move_Table := Adr(ObjectMove);
  59.  
  60.    MyWorld.flags := 1;
  61.    MyWorld.first := Adr(MyObject);
  62.  
  63.    { "Animationsscreen" öffnen }
  64.    MyViewStruct := OpenVScreen( Adr(MyVScreen) );
  65.    IF MyViewStruct = NIL THEN
  66.      VD6 := "Wieder mal null Screen";
  67.  
  68.    Error := SetColors( MyViewStruct, Adr(MyColTab) );   { Farben setzen }
  69.  
  70.    Error := AutoScaleOn( MyVScreen.ViewModes ); { Entzerrung für höhere Auflösung }
  71.  
  72.    Error := DoAnim( Adr(MyWorld) );             { Auf zur Animation!! }
  73.  
  74.    Error := CloseVScreen();                     { Bildschirm schließen }
  75.  
  76.    VD6 := "May the force be with U !";
  77. END;
  78.  
  79.